home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / tutorials / geometer / Theorems / constructions / circtancirccircvert.T < prev    next >
Encoding:
Text File  |  1994-08-02  |  767 b   |  21 lines
  1. .geometry "version 0.1";
  2. v1 = .free(-0.217391, -0.538043, .red, "1");
  3. v2 = .free(-0.266304, -0.296196, .red, "2");
  4. v3 = .free(0.328804, -0.3125, .red, "3");
  5. v4 = .free(0.421196, -0.179348, .red, "4");
  6. v5 = .free(0.125, 0.317935, .red, "5");
  7. c1 = .c.vv(v4, v3, .red);
  8. c2 = .c.vv(v2, v1, .red);
  9. v6 = .free(0.269022, 0.0923913, .invisible, "6");
  10. c3 = .c.vv(v5, v6, .invisible);
  11. c1inv = .c.ccinv(c1, c3, .invisible);
  12. c2inv = .c.ccinv(c2, c3, .invisible);
  13. l1 = .l.ccext(c2inv, c1inv, 1, .invisible, .longline);
  14. l2 = .l.ccext(c2inv, c1inv, 2, .invisible, .longline);
  15. l3 = .l.ccint(c2inv, c1inv, 1, .invisible, .longline);
  16. l4 = .l.ccint(c2inv, c1inv, 2, .invisible, .longline);
  17. cc1 = .c.lcinv(l1, c3);
  18. cc2 = .c.lcinv(l2, c3);
  19. cc3 = .c.lcinv(l3, c3);
  20. cc4 = .c.lcinv(l4, c3);
  21.